home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / AmiVoGL_MDEV.lha / drivers / grx.c < prev    next >
C/C++ Source or Header  |  1994-04-15  |  13KB  |  647 lines
  1. /*
  2.  * GRX driver for VOGL c1993 by Gary Murphy (garym@virtual.rose.utoronto.ca)
  3.  * 
  4.  * To compile:
  5.  * 
  6.  * 1) add GRX to device.c and mash-up your makefiles for MsDOS 2) compile with
  7.  * DOBJ=-DPOSTSCRIPT -DHPGL -DGRX and MFLAGS=-O2
  8.  * 
  9.  * To run:
  10.  * 
  11.  * set VDEVICE=grx
  12.  * 
  13.  * grateful thanks to Lance Norskog (thinman@netcom.com) and Bernie Kirby
  14.  * (bernie@ecr.mu.oz.au) --- should either of you be in my neighbourhood, my
  15.  * offer of an Ice Beer is still open! (Things in #ifdef BLART disabled by
  16.  * bernie...)
  17.  */
  18. #undef VOGLE
  19.  
  20. #include <stdio.h>
  21. #undef DBG
  22. #ifdef DBG
  23. FILE    *dfp = NULL;
  24. #endif
  25. #include <assert.h>
  26.  
  27. #include <stdlib.h>
  28. #include <memory.h>
  29. #include <grx.h>
  30. #include <mousex.h>
  31.  
  32. #define MSG( m ) fprintf(stderr, "\n%s: %d: %s", __FILE__, __LINE__, (m))
  33. #define ERROR1( m, p ) fprintf(stderr, "\n%s: %d: " m, __FILE__, __LINE__, (p))
  34.  
  35. #ifdef VOGLE
  36. #include    "vogle.h"
  37. #else
  38. #include    "vogl.h"
  39. #endif
  40.  
  41. #ifndef TRUE
  42. #define TRUE    1
  43. #endif
  44.  
  45. #ifndef FALSE
  46. #define FALSE    0
  47. #endif
  48.  
  49. #define MAXCOLOR 256
  50.  
  51. static struct {
  52.  
  53.     GR_graphics_modes old_mode;
  54.  
  55.     int             width, height, planes;
  56.     unsigned        scrsize;/* size of buffer in long words */
  57.     GrContext      *cbuf;    /* current context */
  58.     GrContext      *fbuf;
  59.     GrContext      *bbuf;
  60.  
  61.     int             palette[8];
  62.  
  63.     GrLineOption    lopt;    /* pen drawing options */
  64.     int             fg;    /* foreground/background colours */
  65.     int             bg;
  66.  
  67.     int             has_mouse;
  68.  
  69.     GrFont         *font;    /* Current font */
  70.     GrFont         *lfont;    /* Preloaded small font */
  71.     GrFont         *sfont;    /* Preloaded large font */
  72.     char           *fname;    /* Fontname */
  73.     GrTextOption   to;    /* Other text stuff */
  74.  
  75.     int             cx;
  76.     int             cy;
  77.  
  78. } grx;
  79.  
  80. /*
  81.  * access functions: *
  82.  * 
  83. /* I'm going to need this to fudge in stereo graphics ...
  84.  */
  85.  
  86. GrContext * setBackBuffer(GrContext * newBB)
  87. {
  88.     GrContext      *oldBB = grx.bbuf;
  89.     assert(newBB != NULL);
  90.  
  91.     grx.bbuf = newBB;
  92.     return oldBB;
  93. }
  94.  
  95. static int grx_init(void)
  96. {
  97. #ifdef DBG
  98.     dfp = fopen("grx.dbg", "w");
  99. #endif
  100.     grx.old_mode = GrCurrentMode();
  101.     GrSetMode(GR_default_graphics);
  102.  
  103. #ifndef VOGLE
  104.     vdevice.devname = "Grx";
  105. #endif
  106.  
  107.     /* set the VOGL device */
  108.     vdevice.sizeX = GrSizeY();    /* square max, was GrScreenX(); */
  109.     vdevice.sizeY = GrSizeY();
  110.  
  111.     grx.width = vdevice.sizeSx = GrScreenX();
  112.     grx.height = vdevice.sizeSy = GrScreenY();
  113.     grx.planes = vdevice.depth = GrNumPlanes();
  114.  
  115.     grx.scrsize = (GrPlaneSize(grx.width, grx.height) * grx.planes) / sizeof(long);
  116.  
  117.     /* setup default palette */
  118.     GrSetRGBcolorMode();
  119.     grx.lopt.lno_color = grx.fg = GrWhite();
  120.     grx.bg = GrBlack();
  121.  
  122.     grx.palette[BLACK] = GrAllocColor(0, 0, 0);
  123.     grx.palette[RED] = GrAllocColor(255, 0, 0);
  124.     grx.palette[GREEN] = GrAllocColor(0, 255, 0);
  125.     grx.palette[YELLOW] = GrAllocColor(255, 255, 0);
  126.     grx.palette[BLUE] = GrAllocColor(0, 0, 255);
  127.     grx.palette[MAGENTA] = GrAllocColor(255, 0, 255);
  128.     grx.palette[CYAN] = GrAllocColor(0, 255, 255);
  129.     grx.palette[WHITE] = GrAllocColor(255, 255, 255);
  130.  
  131.     /*
  132.      * setup back/front buffers: frontbuffer is the current screen, back
  133.      * is a ram context
  134.      */
  135.     grx.cbuf = grx.fbuf = GrSaveContext(NULL);
  136.     grx.bbuf = NULL;
  137.  
  138.     /* initialize mouse */
  139.     if ((grx.has_mouse = MouseDetect()) == TRUE) {
  140.         /* dare I do interrupts? ... */
  141.         MouseEventMode(1);
  142.         MouseInit();
  143.  
  144.         /* no keyboard (use getch) */
  145.         MouseEventEnable(0, 1);
  146.  
  147.         /* cheezy mouse speed algorithm (blame Lance for the pun) */
  148.         if (grx.width * grx.height < 100000)
  149.             MouseSetSpeed(6);
  150.         else if (grx.width * grx.height < 200000)
  151.             MouseSetSpeed(4);
  152.         else if (grx.width * grx.height < 500000)
  153.             MouseSetSpeed(3);
  154.         else
  155.             MouseSetSpeed(2);
  156.  
  157.         MouseWarp(1, 1);
  158.         MouseDisplayCursor();
  159.     };
  160.  
  161.     /* initial drawing style to thin solid lines */
  162.     grx.lopt.lno_width = 1;
  163.     grx.lopt.lno_pattlen = 0;
  164.     grx.lopt.lno_dashpat = NULL;
  165.     /* load initial fonts */
  166.     if (getenv("GRXFONT") == NULL)
  167.         GrSetFontPath("fonts");
  168.  
  169.     grx.font = grx.sfont = GrLoadFont(vdevice.dev.small);
  170. #ifdef DBG
  171.     if (!grx.font) {
  172.         fprintf(dfp, "GrLoadFont failed");
  173.         fflush(dfp);
  174.     }
  175. #endif
  176.  
  177.     grx.lfont = GrLoadFont(vdevice.dev.large);
  178. #ifdef DBG
  179.     if (!grx.lfont) {
  180.         fprintf(dfp, "GrLoadFont failed");
  181.         fflush(dfp);
  182.     }
  183. #endif
  184.  
  185.     grx.to.txo_font = grx.font;
  186.     grx.to.txo_xmag = grx.to.txo_ymag = 1;
  187.     grx.to.txo_direct = GR_TEXT_RIGHT;
  188.     grx.to.txo_xalign = grx.to.txo_xalign = GR_ALIGN_DEFAULT;
  189.     grx.to.txo_fgcolor = 0;
  190.  
  191.     grx.fname = vdevice.dev.small;
  192.     vdevice.hwidth = 8.0;
  193.     vdevice.hheight = 8.0;
  194.  
  195.     return (1);
  196. }
  197.  
  198. /*
  199.  * grx_frontbuffer, grx_backbuffer, grx_swapbuffers
  200.  * 
  201.  */
  202. static int grx_frontbuffer(void)
  203. {
  204.     grx.cbuf = grx.fbuf;
  205.     GrSetContext(grx.fbuf);
  206.     return (0);
  207. }
  208.  
  209. static int grx_backbuffer(void)
  210. {
  211.     /* if they want a backbuffer, we'd better make one ... */
  212.  
  213.     if (grx.bbuf == NULL)
  214.         grx.bbuf = GrCreateContext(GrSizeX(), GrSizeY(), NULL, NULL);
  215.  
  216.     assert(grx.bbuf != NULL);
  217.  
  218.     grx.cbuf = grx.bbuf;
  219.     GrSetContext(grx.bbuf);
  220.     return (0);
  221. }
  222.  
  223. static int grx_swapbuffers(void)
  224. {
  225.     if (grx.cbuf == grx.fbuf)
  226.         grx_backbuffer();
  227.     else {
  228.         /*
  229.          * there are rumours of a portable VGA backbuffer using VESA
  230.          * but I've yet to track it down.
  231.          * 
  232.          * the following copies by long words from back to front buffer
  233.          * modify this for regions by triming the first x-limit and
  234.          * y-limit and upping the pointers to the start of your
  235.          * subcontext
  236.          */
  237.  
  238.         MouseEraseCursor();
  239.  
  240.         /* WARNING WILL ROBINSON - WARNING WILL ROBINSON */
  241.         /*
  242.          * We're using the NC version so I can copy a 2W by H/2
  243.          * backbuffer in my stereo graphics 'interlaced' mode
  244.          */
  245.  
  246.         GrBitBltNC(grx.fbuf, 0, 0,
  247.                grx.bbuf, 0, 0,
  248.                grx.bbuf->gc_xmax, grx.bbuf->gc_ymax, GrWRITE);
  249.  
  250.         MouseDisplayCursor();
  251.  
  252.  
  253.     }
  254.  
  255.     return (0);
  256. }
  257.  
  258. #ifdef VOGLE
  259. /*
  260.  * grx_vclear
  261.  * 
  262.  * Clear the screen to current colour
  263.  */
  264. int grx_vclear(void)
  265. {
  266.     grx.to.txo_bgcolor = grx.fg;
  267.     GrClearContext(grx.fg);
  268.  
  269. }
  270.  
  271. #else
  272.  
  273. /*
  274.  * grx_vclear
  275.  * 
  276.  * Clear the viewport to current colour
  277.  */
  278. static int grx_vclear(void)
  279. {
  280.     unsigned int    vw = vdevice.maxVx - vdevice.minVx;
  281.     unsigned int    vh = vdevice.maxVy - vdevice.minVy;
  282.  
  283.     grx.to.txo_bgcolor = grx.fg;
  284.     if ((vdevice.sizeSx == vw) && (vdevice.sizeSy == vh)) {
  285.         GrClearContext(grx.fg);    /* full screen */
  286.     } else
  287.         GrFilledBox(
  288.                 vdevice.minVx,
  289.                 vdevice.sizeSy - vdevice.maxVy,
  290.                 grx.width,
  291.                 grx.height,
  292.                 grx.fg);
  293.  
  294.     return (1);
  295. }
  296.  
  297. #endif
  298.  
  299. /*
  300.  * grx_exit
  301.  * 
  302.  * Sets the display back to text mode.
  303.  */
  304. static grx_exit(void)
  305. {
  306.     MouseUnInit();        /* disable mouse/keyboard interrupts */
  307.  
  308.     GrSetMode(grx.old_mode);
  309.     GrDestroyContext(grx.bbuf);
  310.  
  311.     return (1);
  312. }
  313.  
  314. static int grx_sync(void)
  315. {
  316. };
  317.  
  318. static int noop(void)
  319. {
  320.     return (-1);
  321. }
  322.  
  323. /*
  324.  * grx_font : load either of the fonts
  325.  */
  326. static int grx_font(char *name)
  327. {
  328. #ifdef DBG
  329.     fprintf(dfp, "fontname=%s\n", name);
  330.     fflush(dfp);
  331. #endif
  332.     /*
  333.      * Hacky way to quicky test for small or large font
  334.      * ... see of they are the same pointers.... this
  335.      * assumes that they have been called from the main
  336.      * library routine with *vdevice.Vfont(vdevice.smallfont);
  337.      */
  338.     if (name == vdevice.dev.small) {
  339.         grx.font = grx.sfont;
  340.         grx.to.txo_font = grx.font;
  341.         vdevice.hheight = grx.font->fnt_height;
  342.         vdevice.hwidth = grx.font->fnt_width;
  343.         grx.fname = name;
  344. #ifdef DBG
  345.         fprintf(dfp, "w, h: %f %f\n", vdevice.hheight, vdevice.hwidth);
  346.         fflush(dfp);
  347. #endif
  348.         return(1);
  349.     } else if (name == vdevice.dev.large) {
  350.         grx.font = grx.lfont;
  351.         grx.to.txo_font = grx.font;
  352.         vdevice.hheight = grx.font->fnt_height;
  353.         vdevice.hwidth = grx.font->fnt_width;
  354.         grx.fname = name;
  355. #ifdef DBG
  356.         fprintf(dfp, "w, h: %f %f\n", vdevice.hheight, vdevice.hwidth);
  357.         fflush(dfp);
  358. #endif
  359.         return(1);
  360.     } else
  361.  
  362.     /* 
  363.      * It must be a completely different font (ala vogle possibility).
  364.      */
  365.     if (strcmp(name, grx.fname)) {
  366.         if (grx.font != grx.sfont && grx.font != grx.lfont)
  367.             GrUnloadFont(grx.font);
  368.  
  369.         if (grx.fname) {
  370.             free(grx.fname);
  371.             grx.fname = (char *)malloc(strlen(name) + 1);
  372.             strcpy(grx.fname, name);
  373.         }
  374.  
  375.         if (!(grx.font = GrLoadFont(name))) {
  376.             return(0);
  377.         }
  378.  
  379.         grx.to.txo_font = grx.font;
  380.  
  381.         vdevice.hheight = grx.font->fnt_height;
  382.         vdevice.hwidth = grx.font->fnt_width;
  383. #ifdef DBG
  384.         fprintf(dfp, "w, h: %f %f\n", vdevice.hheight, vdevice.hwidth);
  385.         fflush(dfp);
  386. #endif
  387.     }
  388.  
  389.     ret